#############################
# MODIFY ITEM REWARDS HERE
# REWARDS
# EPIC 1.5
##############################
%Rewards = (				#Name each item appropriately for use Charm rewards
"Bard_15" =>			77631,	#Prismatic Dragon Blade
"Beastlord_15" =>		52911,	#Savage Lord's Totem
"Berserker_15" =>		18398,	#Raging Taelosian Alloy Axe
"Cleric_15" =>			 9955,	#Harmony of the Soul
"Druid_15" =>			62863,	#Staff of Living Brambles
"Enchanter_15" =>		52952,	#Oculus of Persuasion
"Magician_15" =>		19092,	#Staff of Elemental Essence 
"Monk_15" =>			61025,	#Fistwraps of Celestial Discipline
"Necro_15" =>			62581,	#Soulwhisper
"Paladin_15" =>			64031,	#Redemption
"Ranger_15" =>			62627,	#Heartwood Blade
"Rogue_15" =>			52347,	#Fatestealer
"Shadowknight_15" =>	50003,	#Innoruuk's Voice
"Shaman_15" =>			57400,	#Crafted Talisman of Fates
"Warrior_15" =>			60321,	#Champion's Sword of Eternal Power 
"Wizard_15" =>			12665,	#Staff of Prismatic Power
############
# Rewards  #
# EPIC 2.0 #
############
"Bard_20" =>			77640,	#Prismatic Dragon Blade
"Beastlord_20" =>		57054,	#Savage Lord's Totem
"Berserker_20" =>		18609,	#Raging Taelosian Alloy Axe
"Cleric_20" =>			20076,	#Harmony of the Soul
"Druid_20" =>			62880,	#Staff of Living Brambles
"Enchanter_20" =>		52962,	#Oculus of Persuasion
"Magician_20" =>		19839,	#Staff of Elemental Essence 
"Monk_20" =>			67742,	#Fistwraps of Celestial Discipline
"Necro_20" =>			64067,	#Soulwhisper
"Paladin_20" =>			48147,	#Redemption
"Ranger_20" =>			62649,	#Heartwood Blade
"Rogue_20" =>			52348,	#Fatestealer
"Shadowknight_20" =>	48136,	#Innoruuk's Voice
"Shaman_20" =>			57405,	#Crafted Talisman of Fates
"Warrior_20" =>			60332,	#Champion's Sword of Eternal Power 
"Wizard_20" =>			16576,	#Staff of Prismatic Power
);
########################
#MODIFY HERE           #
#REQUIRED QUEST TURNINS#
#Epic 1.5              #
########################
my $Bard_1 =			20542;		#Singing Short Sword
my $Beastlord_1 =		 8495;		#claw of the savage spirit (Primary)
my $Beastlord_2 =		 8496;		#claw of the savage spirit (Secondary)
my $Berserker_1 =		68299;		#Kerasian Axe of Ire
my $Cleric_1 =			 5532;		#Water Sprinkler of Nem Ankh
my $Druid_1 =			20490;		#Nature Walkers Scimitar
my $Enchanter_1 =		10650;		#Staff of the Serpent
my $Magician_1 =		20834;		#Orb of Mastery
my $Monk_1 =			10652;		#Celestial Fists 
my $Necro_1 =			20544;		#Scythe of the Shadowed Soul
my $Paladin_1 =			10099;		#Fiery Defender
my $Ranger_1 =			20487;		#Swiftwind
my $Ranger_2 =			20488;		#Earthcaller
my $Rogue_1 =			11057;		#Ragebringer
my $Shadowknight_1 =	14383;		#Innoruuk's Curse
my $Shaman_1 =			10651;		#Spear of Fate
my $Warrior_1 =			10909;		#Blade of Tactics
my $Warrior_2 =			10910;		#Blade of Strategy
my $Warrior_3 =			17869;		#Red Scabbard
my $Wizard_1 =			14341;		#Staff of the Four
my $Vexthal =			22198;		#The Scepter of Shadows (key to vex thal)
########################
#MODIFY HERE           #
#REQUIRED QUEST TURNINS#
#Epic 2.0              #
########################
my $Bard2_1 =			77631;		#Prismatic Dragon Blade
my $Beastlord2_1 =		52911;		#Savage Lord's Totem
my $Berserker2_1 =		18398;		#Raging Taelosian Alloy Axe
my $Cleric2_1 =			 9955;		#Harmony of the Soul
my $Druid2_1 =			62863;		#Staff of Living Brambles
my $Enchanter2_1 =		52952;		#Oculus of Persuasion
my $Magician2_1 =		19092;		#Staff of Elemental Essence
my $Monk2_1 =			61025;		#Fistwraps of Celestial Discipline 
my $Necro2_1 =			62581;		#Soulwhisper
my $Paladin2_1 =		64031;		#Redemption
my $Ranger2_1 =			62627;		#Heartwood Blade
my $Rogue2_1 =			52347;		#Fatestealer
my $Shadowknight2_1 =	50003;		#Innoruuk's Voice
my $Shaman2_1 =			57400;		#Crafted Talisman of Fates
my $Warrior2_1 =		60321;		#Champion's Sword of Eternal Power
my $Wizard2_1 =			12665;		#Staff of Prismatic Power
my $seb_key =			20883;		#Trakanon Idol
my $sleepers_key =		27265;		#Sleeper's Key
my $vpeak_key =			20884;		#Key of Veeshan


sub EVENT_SAY {
###NEW ITEMS###
#Do NOT modify#
# Epic 1.5    #
###############
my $Bard_15 = "Bard_15";
my $Beastlord_15 = "Beastlord_15";
my $Berserker_15 = "Berserker_15";
my $Cleric_15 = "Cleric_15";
my $Druid_15 = "Druid_15";
my $Enchanter_15 = "Enchanter_15";
my $Magician_15 = "Magician_15";
my $Monk_15 = "Monk_15";
my $Necro_15 = "Necro_15";
my $Paladin_15 = "Paladin_15";
my $Ranger_15 = "Ranger_15";
my $Rogue_15 = "Rogue_15";
my $Shadowknight_15 = "Shadowknight_15";
my $Shaman_15 = "Shaman_15";
my $Warrior_15 = "Warrior_15";
my $Wizard_15 = "Wizard_15";
my $vexthal_quest = "Vexthal";
###NEW ITEMS###
#Do NOT modify#
# Epic 2.0    #
###############
my $Bard_20 = "Bard_20";
my $Beastlord_20 = "Beastlord_20";
my $Berserker_20 = "Berserker_20";
my $Cleric_20 = "Cleric_20";
my $Druid_20 = "Druid_20";
my $Enchanter_20 = "Enchanter_20";
my $Magician_20 = "Magician_20";
my $Monk_20 = "Monk_20";
my $Necro_20 = "Necro_20";
my $Paladin_20 = "Paladin_20";
my $Ranger_20 = "Ranger_20";
my $Rogue_20 = "Rogue_20";
my $Shadowknight_20 = "Shadowknight_20";
my $Shaman_20 = "Shaman_20";
my $Warrior_20 = "Warrior_20";
my $Wizard_20 = "Wizard_20";


#Create the Item Links from the Rewards Array for use in say messages
###############
#Do NOT modify#
#   Epic 1.5  #
###############
my $Bard_Link = quest::varlink($Rewards{$Bard_15});
my $Beastlord_Link = quest::varlink($Rewards{$Beastlord_15});
my $Berserker_Link = quest::varlink($Rewards{$Berserker_15});
my $Cleric_Link = quest::varlink($Rewards{$Cleric_15});
my $Druid_Link = quest::varlink($Rewards{$Druid_15});
my $Enchanter_Link = quest::varlink($Rewards{$Enchanter_15});
my $Magician_Link = quest::varlink($Rewards{$Magician_15});
my $Monk_Link = quest::varlink($Rewards{$Monk_15});
my $Necro_Link = quest::varlink($Rewards{$Necro_15});
my $Paladin_Link = quest::varlink($Rewards{$Paladin_15});
my $Ranger_Link = quest::varlink($Rewards{$Ranger_15});
my $Rogue_Link = quest::varlink($Rewards{$Rogue_15});
my $Shadowknight_Link = quest::varlink($Rewards{$Shadowknight_15});
my $Shaman_Link = quest::varlink($Rewards{$Shaman_15});
my $Warrior_Link = quest::varlink($Rewards{$Warrior_15});
my $Wizard_Link = quest::varlink($Rewards{$Wizard_15});
###############
#Do NOT modify#
#   Epic 2.0  #
###############
my $Bard2_Link = quest::varlink($Rewards{$Bard_20});
my $Beastlord2_Link = quest::varlink($Rewards{$Beastlord_20});
my $Berserker2_Link = quest::varlink($Rewards{$Berserker_20});
my $Cleric2_Link = quest::varlink($Rewards{$Cleric_20});
my $Druid2_Link = quest::varlink($Rewards{$Druid_20});
my $Enchanter2_Link = quest::varlink($Rewards{$Enchanter_20});
my $Magician2_Link = quest::varlink($Rewards{$Magician_20});
my $Monk2_Link = quest::varlink($Rewards{$Monk_20});
my $Necro2_Link = quest::varlink($Rewards{$Necro_20});
my $Paladin2_Link = quest::varlink($Rewards{$Paladin_20});
my $Ranger2_Link = quest::varlink($Rewards{$Ranger_20});
my $Rogue2_Link = quest::varlink($Rewards{$Rogue_20});
my $Shadowknight2_Link = quest::varlink($Rewards{$Shadowknight_20});
my $Shaman2_Link = quest::varlink($Rewards{$Shaman_20});
my $Warrior2_Link = quest::varlink($Rewards{$Warrior_20});
my $Wizard2_Link = quest::varlink($Rewards{$Wizard_20});
#Create the required quest turnin item links for use in say messages
###############
#Do NOT modify#
# Epic 1.5    #
###############
my $Bard_quest = quest::varlink($Bard_1);
my $Beastlord1_quest = quest::varlink($Beastlord_1);
my $Beastlord2_quest = quest::varlink($Beastlord_2);
my $Berserker_quest = quest::varlink($Berserker_1);
my $Cleric_quest = quest::varlink($Cleric_1);
my $Druid_quest = quest::varlink($Druid_1);
my $Enchanter_quest = quest::varlink($Enchanter_1);
my $Magician_quest = quest::varlink($Magician_1);
my $Monk_quest = quest::varlink($Monk_1);
my $Necro_quest = quest::varlink($Necro_1);
my $Paladin_quest = quest::varlink($Paladin_1);
my $Ranger1_quest = quest::varlink($Ranger_1);
my $Ranger2_quest = quest::varlink($Ranger_2);
my $Rogue_quest = quest::varlink($Rogue_1);
my $Shadowknight_quest = quest::varlink($Shadowknight_1);
my $Shaman_quest = quest::varlink($Shaman_1);
my $Warrior1_quest = quest::varlink($Warrior_1);
my $Warrior2_quest = quest::varlink($Warrior_2);
my $Warrior3_quest = quest::varlink($Warrior_3);
my $Wizard_quest = quest::varlink($Wizard_1);
my $vexthal_quest = quest::varlink($Vexthal);
my $time = quest::varlink(56018);
###############
#Do NOT modify#
# Epic 2.0    #
###############
my $seb_key_quest = quest::varlink($seb_key);
my $sleepers_key_quest = quest::varlink($sleepers_key);
my $vpeak_key_quest = quest::varlink($vpeak_key);
##################
#Message saylinks#
##################
my $bind = quest::saylink("Bind Your Soul");
my $begin = quest::saylink("Begin The Task");
my $potime = quest::saylink("Plane of Time Access");
my $ew = quest::saylink("Epic Weapons");
###################
# First Hail START#
###################
if ($text=~/Hail/i) 
	{
			$client->Message(315, 
					  "Greetings $name, Would you like to hear about $ew? 
					  I can also tell you about alternate $potime or I can $bind ");
		}
###################
# EPIC WEAPONS 1.5#
###################		
if ($text=~/Epic Weapons/i && $epic_weapon == undef) 
			
	{	
		$client->Message(15, 
					  "Epic 1.5 Quest");
		$client->Message(315, 
					  "I require your Epic 1.0 and the Key to Vex Thal");
		$client->Message(315, 
					  "The first way obtain the Epic 1.0 is from the normal live Epic 1.0 quest.");
		$client->Message(315, 
					  "The second way is from the named frogs inside Lower Guk.
					  Becareful as Lower Guk has been re tuned to a Level 70 Zone.
					  Would you like to $begin ?");
	}
	
elsif ($text=~/Epic Weapons/i && $epic_weapon == 2) 
			
	{		  
		$client->Message(315, 
					  "You Have Completed all of the Epic Weapon Quests $name");
	}

##############
# SOULBINDER #
##############		
elsif ($text=~/Bind Your Soul/i) 
			
	{		  
		quest::say("Binding your soul. You will return here when you die.");
	    quest::selfcast(2049);
	}
###############
# POTIME TEXT #
###############	
elsif ($text=~/Plane of Time Access/i) 
			
	{		  
		$client->Message(315, "Hello $name if you have found a $time please hand
							it to me and I will grant you access to the Plane of Time");
	}
		
##################### 
# EPIC 1.5 Hail text#
#####################
 elsif ($text=~/Begin The Task/i && $class eq 'Bard' && $epic_weapon == undef) 
			
		{		  
		$client->Message(15, 
					  "Epic 1.5 Quest");
		$client->Message(315, 
					   "Bring me your $Bard_quest along with your key to Vex Thal
					   $vexthal_quest as proof and I will reward you with $Bard_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
 elsif ($text=~/Begin The Task/i && $class eq 'Beastlord' && $epic_weapon == undef) 
			
		{		  
		$client->Message(15, 
					  "Epic 1.5 Quest");
		$client->Message(315, 
					   "Bring me either $Beastlord1_quest or $Beastlord2_quest along
					   with your key to Vex Thal $vexthal_quest as proof and I will
					   reward you with $Beastlord_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Begin The Task/i && $class eq 'Berserker' && $epic_weapon == undef) 
			
		{		  
		$client->Message(15, 
					  "Epic 1.5 Quest");
		$client->Message(315, 
					   "Bring me your $Berserker_quest along with your key to Vex Thal
					   $vexthal_quest as proof and I will reward you with $Berserker_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Begin The Task/i && $class eq 'Cleric' && $epic_weapon == undef) 
			
		{		  
		$client->Message(15, 
					  "Epic 1.5 Quest");
		$client->Message(315, 
					   "Bring me your $Cleric_quest along with your key to Vex Thal
					   $vexthal_quest as proof and I will reward you with $Cleric_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Begin The Task/i && $class eq 'Druid' && $epic_weapon == undef) 
			
		{		  
		$client->Message(15, 
					  "Epic 1.5 Quest");
		$client->Message(315, 
					   "Bring me your $Druid_quest along with your key to Vex Thal
					   $vexthal_quest as proof and I will reward you with $Druid_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Begin The Task/i && $class eq 'Enchanter' && $epic_weapon == undef) 
			
		{		  
		$client->Message(15, 
					  "Epic 1.5 Quest");
		$client->Message(315, 
					   "Bring me your $Enchanter_quest along with your key to Vex Thal
					   $vexthal_quest as proof and I will reward you with $Enchanter_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Begin The Task/i && $class eq 'Magician' && $epic_weapon == undef) 
			
		{		  
		$client->Message(15, 
					  "Epic 1.5 Quest");
		$client->Message(315, 
					   "Bring me your $Magician_quest along with your key to Vex Thal
					   $vexthal_quest as proof and I will reward you with $Magician_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Begin The Task/i && $class eq 'Monk' && $epic_weapon == undef) 
			
		{		  
		$client->Message(15, 
					  "Epic 1.5 Quest");
		$client->Message(315, 
					   "Bring me your $Monk_quest along with your key to Vex Thal
					   $vexthal_quest as proof and I will reward you with $Monk_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Begin The Task/i && $class eq 'Necromancer' && $epic_weapon == undef) 
			
		{		  
		$client->Message(15, 
					  "Epic 1.5 Quest");
		$client->Message(315, 
					   "Bring me your $Necro_quest along with your key to Vex Thal
					   $vexthal_quest as proof and I will reward you with $Necro_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Begin The Task/i && $class eq 'Paladin' && $epic_weapon == undef) 
			
		{		  
		$client->Message(15, 
					  "Epic 1.5 Quest");
		$client->Message(315, 
					   "Bring me your $Paladin_quest along with your key to Vex Thal
					   $vexthal_quest as proof and I will reward you with $Paladin_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Begin The Task/i && $class eq 'Ranger' && $epic_weapon == undef) 
			
		{		
		$client->Message(15, 
					  "Epic 1.5 Quest");
		$client->Message(315, 
					   "Bring me either $Ranger1_quest or $Ranger2_quest along with your
					   key to Vex Thal $vexthal_quest as proof and I will reward you with
					   $Ranger_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Begin The Task/i && $class eq 'Rogue' && $epic_weapon == undef) 
			
		{		
		$client->Message(15, 
					  "Epic 1.5 Quest");
		$client->Message(315, 
					   "Bring me your $Rogue_quest along with your key to Vex Thal
					   $vexthal_quest as proof and I will reward you with $Rogue_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Begin The Task/i && $class eq 'Shadowknight' && $epic_weapon == undef) 
			
		{		
		$client->Message(15, 
					  "Epic 1.5 Quest");
		$client->Message(315, 
					   "Bring me your $Shadowknight_quest along with your key to Vex Thal
					   $vexthal_quest as proof and I will reward you with $Shadowknight_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Begin The Task/i && $class eq 'Shaman' && $epic_weapon == undef) 
			
		{		
		$client->Message(15, 
					  "Epic 1.5 Quest");
		$client->Message(315, 
					   "Bring me your $Shaman_quest along with your key to Vex Thal
					   $vexthal_quest as proof and I will reward you with $Shaman_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Begin The Task/i && $class eq 'Warrior' && $epic_weapon == undef) 
			
		{		
		$client->Message(15, 
					  "Epic 1.5 Quest");
		$client->Message(315, 
					   "Bring me Either $Warrior1_quest or $Warrior2_quest or $Warrior3_quest
					   along with your key to Vex Thal $vexthal_quest as proof and I will
					   reward you with $Warrior_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Begin The Task/i && $class eq 'Wizard' && $epic_weapon == undef) 
			
		{
		$client->Message(15, 
					  "Epic 1.5 Quest");
		$client->Message(315, 
					   "Bring me your $Wizard_quest along with your key to Vex Thal
					   $vexthal_quest as proof and I will reward you with $Wizard_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
##################### 
# EPIC 2.0 Hail text#
#####################
 elsif ($text=~/Epic Weapons/i && $class eq 'Bard' && $epic_weapon == 1) 
			
		{	
		$client->Message(15, 
					  "Epic 2.0 Quest");
		$client->Message(315, 
					   "Bring me your $Bard_Link along with, Key to Sebilis $seb_key_quest, 
					  Key to Sleepers $sleepers_key_quest and Key to Veeshan's Peak $vpeak_key_quest as proof and I will reward you with $Bard2_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
 elsif ($text=~/Epic Weapons/i && $class eq 'Beastlord' && $epic_weapon == 1) 
			
		{
		$client->Message(15, 
					  "Epic 2.0 Quest");
		$client->Message(315, 
					   "Bring me your $Beastlord_Link along with, Key to Sebilis $seb_key_quest, 
					  Key to Sleepers $sleepers_key_quest and Key to Veeshan's Peak $vpeak_key_questt as proof and I will reward you with $Beastlord2_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Epic Weapons/i && $class eq 'Berserker' && $epic_weapon == 1) 
			
		{
		$client->Message(15, 
					  "Epic 2.0 Quest");
		$client->Message(315, 
					   "Bring me your $Berserker_Link along with, Key to Sebilis $seb_key_quest, 
					  Key to Sleepers $sleepers_key_quest and Key to Veeshan's Peak $vpeak_key_quest as proof and I will reward you with $Berserker2_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Epic Weapons/i && $class eq 'Cleric' && $epic_weapon == 1) 
			
		{	
		$client->Message(15, 
					  "Epic 2.0 Quest");
		$client->Message(315, 
					   "Bring me your $Cleric_Link along with, Key to Sebilis $seb_key_quest, 
					  Key to Sleepers $sleepers_key_quest and Key to Veeshan's Peak $vpeak_key_quest as proof and I will reward you with $Cleric2_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Epic Weapons/i && $class eq 'Druid' && $epic_weapon == 1) 
			
		{
		$client->Message(15, 
					  "Epic 2.0 Quest");
		$client->Message(315, 
					   "Bring me your $Druid_Link along with, Key to Sebilis $seb_key_quest, 
					  Key to Sleepers $sleepers_key_quest and Key to Veeshan's Peak $vpeak_key_quest as proof and I will reward you with $Druid2_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Epic Weapons/i && $class eq 'Enchanter' && $epic_weapon == 1) 
			
		{	
		$client->Message(15, 
					  "Epic 2.0 Quest");
		$client->Message(315, 
					   "Bring me your $Enchanter_Link along with, Key to Sebilis $seb_key_quest, 
					  Key to Sleepers $sleepers_key_quest and Key to Veeshan's Peak $vpeak_key_quest as proof and I will reward you with $Enchanter2_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Epic Weapons/i && $class eq 'Magician' && $epic_weapon == 1) 
			
		{	
		$client->Message(15, 
					  "Epic 2.0 Quest");
		$client->Message(315, 
					   "Bring me your $Magician_Link along with, Key to Sebilis $seb_key_quest, 
					  Key to Sleepers $sleepers_key_quest and Key to Veeshan's Peak $vpeak_key_quest as proof and I will reward you with $Magician2_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Epic Weapons/i && $class eq 'Monk' && $epic_weapon == 1) 
			
		{	
		$client->Message(15, 
					  "Epic 2.0 Quest");
		$client->Message(315, 
					   "Bring me your $Monk_Link along with, Key to Sebilis $seb_key_quest, 
					  Key to Sleepers $sleepers_key_quest and Key to Veeshan's Peak $vpeak_key_quest as proof and I will reward you with $Monk2_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Epic Weapons/i && $class eq 'Necromancer' && $epic_weapon == 1) 
			
		{
		$client->Message(15, 
					  "Epic 2.0 Quest");
		$client->Message(315, 
					   "Bring me your $Necro_Link along with, Key to Sebilis $seb_key_quest, 
					  Key to Sleepers $sleepers_key_quest and Key to Veeshan's Peak $vpeak_key_quest as proof and I will reward you with $Necro2_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Epic Weapons/i && $class eq 'Paladin' && $epic_weapon == 1) 
			
		{	
		$client->Message(15, 
					  "Epic 2.0 Quest");
		$client->Message(315, 
					   "Bring me your $Paladin_Link along with, Key to Sebilis $seb_key_quest, 
					  Key to Sleepers $sleepers_key_quest and Key to Veeshan's Peak $vpeak_key_quest as proof and I will reward you with $Paladin2_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Epic Weapons/i && $class eq 'Ranger' && $epic_weapon == 1) 
			
		{
		$client->Message(15, 
					  "Epic 2.0 Quest");
		$client->Message(315, 
					   "Bring me your $Ranger_Link along with, Key to Sebilis $seb_key_quest, 
					  Key to Sleepers $sleepers_key_quest and Key to Veeshan's Peak $vpeak_key_quest as proof and I will reward you with $Ranger2_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Epic Weapons/i && $class eq 'Rogue' && $epic_weapon == 1) 
			
		{	
		$client->Message(15, 
					  "Epic 2.0 Quest");
		$client->Message(315, 
					   "Bring me your $Rogue_Link along with, Key to Sebilis $seb_key_quest, 
					  Key to Sleepers $sleepers_key_quest and Key to Veeshan's Peak $vpeak_key_quest as proof and I will reward you with $Rogue2_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Epic Weapons/i && $class eq 'Shadowknight' && $epic_weapon == 1) 
			
		{	
		$client->Message(15, 
					  "Epic 2.0 Quest");
		$client->Message(315, 
					   "Bring me your $Shadowknight_Link along with, Key to Sebilis $seb_key_quest, 
					  Key to Sleepers $sleepers_key_quest and Key to Veeshan's Peak $vpeak_key_quest as proof and I will reward you with $Shadowknight2_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Epic Weapons/i && $class eq 'Shaman' && $epic_weapon == 1) 
			
		{
		$client->Message(15, 
					  "Epic 2.0 Quest");
		$client->Message(315, 
					   "Bring me your $Shaman_Link along with, Key to Sebilis $seb_key_quest, 
					  Key to Sleepers $sleepers_key_quest and Key to Veeshan's Peak $vpeak_key_quest as proof and I will reward you with $Shaman2_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Epic Weapons/i && $class eq 'Warrior' && $epic_weapon == 1) 
			
		{
		$client->Message(15, 
					  "Epic 2.0 Quest");
		$client->Message(315, 
					   "Bring me your $Warrior_Link aalong with, Key to Sebilis $seb_key_quest, 
					  Key to Sleepers $sleepers_key_quest and Key to Veeshan's Peak $vpeak_key_quest as proof and I will reward you with $Warrior2_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Epic Weapons/i && $class eq 'Wizard' && $epic_weapon == 1) 
			
		{	
		$client->Message(15, 
					  "Epic 2.0 Quest");
		$client->Message(315, 
					   "Bring me your $Wizard_Link along with, Key to Sebilis $seb_key_quest, 
					  Key to Sleepers $sleepers_key_quest and Key to Veeshan's Peak $vpeak_key_quest as proof and I will reward you with $Wizard2_Link");
		$client->Message(13, 
					  "WARNING...Make sure to use your keys before handing them in..You will NOT get them back");
		}
elsif ($text=~/Epic Weapons/i && $epic_weapon == 2) 
			
		{		  
		$client->Message(315, 
					   "You Have already completed your Epic 2.0 $name");
		}
}
		
		
sub EVENT_ITEM
 {
 #Create the full name of each item for the Rewards array
###############
#Do NOT modify#
#  Epic 1.5   #
###############
my $Bard_15 = "Bard_15";
my $Beastlord_15 = "Beastlord_15";
my $Berserker_15 = "Berserker_15";
my $Cleric_15 = "Cleric_15";
my $Druid_15 = "Druid_15";
my $Enchanter_15 = "Enchanter_15";
my $Magician_15 = "Magician_15";
my $Monk_15 = "Monk_15";
my $Necro_15 = "Necro_15";
my $Paladin_15 = "Paladin_15";
my $Ranger_15 = "Ranger_15";
my $Rogue_15 = "Rogue_15";
my $Shadowknight_15 = "Shadowknight_15";
my $Shaman_15 = "Shaman_15";
my $Warrior_15 = "Warrior_15";
my $Wizard_15 = "Wizard_15";
my $Vexthal_1 = "Vexthal_1";
###NEW ITEMS###
#Do NOT modify#
# Epic 2.0    #
###############
my $Bard_20 = "Bard_20";
my $Beastlord_20 = "Beastlord_20";
my $Berserker_20 = "Berserker_20";
my $Cleric_20 = "Cleric_20";
my $Druid_20 = "Druid_20";
my $Enchanter_20 = "Enchanter_20";
my $Magician_20 = "Magician_20";
my $Monk_20 = "Monk_20";
my $Necro_20 = "Necro_20";
my $Paladin_20 = "Paladin_20";
my $Ranger_20 = "Ranger_20";
my $Rogue_20 = "Rogue_20";
my $Shadowknight_20 = "Shadowknight_20";
my $Shaman_20 = "Shaman_20";
my $Warrior_20 = "Warrior_20";
my $Wizard_20 = "Wizard_20";
#Create the Item Links from the Rewards Array for use in say messages
###############
#Do NOT modify#
#   Epic 1.5  #
###############
my $Bard_Link = quest::varlink($Rewards{$Bard_15});
my $Beastlord_Link = quest::varlink($Rewards{$Beastlord_15});
my $Berserker_Link = quest::varlink($Rewards{$Berserker_15});
my $Cleric_Link = quest::varlink($Rewards{$Cleric_15});
my $Druid_Link = quest::varlink($Rewards{$Druid_15});
my $Enchanter_Link = quest::varlink($Rewards{$Enchanter_15});
my $Magician_Link = quest::varlink($Rewards{$Magician_15});
my $Monk_Link = quest::varlink($Rewards{$Monk_15});
my $Necro_Link = quest::varlink($Rewards{$Necro_15});
my $Paladin_Link = quest::varlink($Rewards{$Paladin_15});
my $Ranger_Link = quest::varlink($Rewards{$Ranger_15});
my $Rogue_Link = quest::varlink($Rewards{$Rogue_15});
my $Shadowknight_Link = quest::varlink($Rewards{$Shadowknight_15});
my $Shaman_Link = quest::varlink($Rewards{$Shaman_15});
my $Warrior_Link = quest::varlink($Rewards{$Warrior_15});
my $Wizard_Link = quest::varlink($Rewards{$Wizard_15});
###############
#Do NOT modify#
#   Epic 2.0  #
###############
my $Bard2_Link = quest::varlink($Rewards{$Bard_20});
my $Beastlord2_Link = quest::varlink($Rewards{$Beastlord_20});
my $Berserker2_Link = quest::varlink($Rewards{$Berserker_20});
my $Cleric2_Link = quest::varlink($Rewards{$Cleric_20});
my $Druid2_Link = quest::varlink($Rewards{$Druid_20});
my $Enchanter2_Link = quest::varlink($Rewards{$Enchanter_20});
my $Magician2_Link = quest::varlink($Rewards{$Magician_20});
my $Monk2_Link = quest::varlink($Rewards{$Monk_20});
my $Necro2_Link = quest::varlink($Rewards{$Necro_20});
my $Paladin2_Link = quest::varlink($Rewards{$Paladin_20});
my $Ranger2_Link = quest::varlink($Rewards{$Ranger_20});
my $Rogue2_Link = quest::varlink($Rewards{$Rogue_20});
my $Shadowknight2_Link = quest::varlink($Rewards{$Shadowknight_20});
my $Shaman2_Link = quest::varlink($Rewards{$Shaman_20});
my $Warrior2_Link = quest::varlink($Rewards{$Warrior_20});
my $Wizard2_Link = quest::varlink($Rewards{$Wizard_20});
########################
#Item Hand in EPIC 1.5 #
########################
#Item Hand in Bard
 if  (plugin::check_handin(\%itemcount, 22198=> 1, $Bard_1=> 1 && $class eq 'Bard' && $epic_weapon == undef))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Bard_Link Epic 1.5!");
	quest::setglobal("epic_weapon", 1, 5, "F");
    quest::summonitem($Rewards{$Bard_15}); 
    quest::ding ();
     }
#Item Hand in Beastlord
 if  (plugin::check_handin(\%itemcount, 22198=> 1, $Beastlord_1=> 1 && $class eq 'Beastlord' && $epic_weapon == undef))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Beastlord_Link Epic 1.5!");
	quest::setglobal("epic_weapon", 1, 5, "F");
    quest::summonitem($Rewards{$Beastlord_15});
    quest::ding ();
     }
#Item Hand in Beastlord
 if  (plugin::check_handin(\%itemcount, 22198=> 1, $Beastlord_2=> 1 && $class eq 'Beastlord' && $epic_weapon == undef))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Beastlord_Link Epic 1.5!");
	quest::setglobal("epic_weapon", 1, 5, "F");
    quest::summonitem($Rewards{$Beastlord_15}); 
    quest::ding ();
     }
#Item Hand in Berserker
 if  (plugin::check_handin(\%itemcount, 22198=> 1, $Berserker_1=> 1 && $class eq 'Berserker' && $epic_weapon == undef))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Berserker_Link Epic 1.5!");
	quest::setglobal("epic_weapon", 1, 5, "F");
    quest::summonitem($Rewards{$Berserker_15});
    quest::ding ();
     }
#Item Hand in Cleric
 if  (plugin::check_handin(\%itemcount, 22198=> 1, $Cleric_1=> 1 && $class eq 'Cleric' && $epic_weapon == undef))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Cleric_Link Epic 1.5!");
	quest::setglobal("epic_weapon", 1, 5, "F");
    quest::summonitem($Rewards{$Cleric_15});
    quest::ding ();
     }
#Item Hand in Druid 
 if  (plugin::check_handin(\%itemcount, 22198=> 1, $Druid_1=> 1 && $class eq 'Druid' && $epic_weapon == undef))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Druid_Link Epic 1.5!");
	quest::setglobal("epic_weapon", 1, 5, "F");
    quest::summonitem($Rewards{$Druid_15});
    quest::ding ();
     }
#Item Hand in Enchanter
 if  (plugin::check_handin(\%itemcount, 22198=> 1, $Enchanter_1=> 1 && $class eq 'Enchanter' && $epic_weapon == undef))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Enchanter_Link Epic 1.5!");
	quest::setglobal("epic_weapon", 1, 5, "F");
    quest::summonitem($Rewards{$Enchanter_15});
    quest::ding ();
     }
#Item Hand in Magician
 if  (plugin::check_handin(\%itemcount, 22198=> 1, $Magician_1=> 1 && $class eq 'Magician' && $epic_weapon == undef))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Magician_Link Epic 1.5!");
	quest::setglobal("epic_weapon", 1, 5, "F");
    quest::summonitem($Rewards{$Magician_15});
    quest::ding ();
     }
#Item Hand in Monk 
 if  (plugin::check_handin(\%itemcount, 22198=> 1, $Monk_1=> 1 && $class eq 'Monk' && $epic_weapon == undef))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Monk_Link Epic 1.5!");
	quest::setglobal("epic_weapon", 1, 5, "F");
    quest::summonitem($Rewards{$Monk_15});
    quest::ding ();
     }
#Item Hand in Necromancer
 if  (plugin::check_handin(\%itemcount, 22198=> 1, $Necro_1=> 1 && $class eq 'Necromancer' && $epic_weapon == undef))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Necromancer_Link Epic 1.5!");
	quest::setglobal("epic_weapon", 1, 5, "F");
    quest::summonitem($Rewards{$Necro_15}); 
    quest::ding ();
     }
#Item Hand in Paladin
 if  (plugin::check_handin(\%itemcount, 22198=> 1, $Paladin_1=> 1 && $class eq 'Paladin' && $epic_weapon == undef))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Paladin_Link Epic 1.5!");
	quest::setglobal("epic_weapon", 1, 5, "F");
    quest::summonitem($Rewards{$Paladin_15}); 
    quest::ding ();
     }
#Item Hand in Ranger
 if  (plugin::check_handin(\%itemcount, 22198=> 1, $Ranger_1=> 1 && $class eq 'Ranger' && $epic_weapon == undef))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Ranger_Link Epic 1.5!");
	quest::setglobal("epic_weapon", 1, 5, "F");
    quest::summonitem($Rewards{$Ranger_15});
    quest::ding ();
     }
#Item Hand in Ranger
 if  (plugin::check_handin(\%itemcount, 22198=> 1, $Ranger_2=> 1 && $class eq 'Ranger' && $epic_weapon == undef))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Ranger_Link Epic 1.5!");
	quest::setglobal("epic_weapon", 1, 5, "F");
    quest::summonitem($Rewards{$Ranger_15});
    quest::ding ();
     }
#Item Hand in Rogue
 if  (plugin::check_handin(\%itemcount, 22198=> 1, $Rogue_1=> 1 && $class eq 'Rogue' && $epic_weapon == undef))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Rogue_Link Epic 1.5!");
	quest::setglobal("epic_weapon", 1, 5, "F");
    quest::summonitem($Rewards{$Rogue_15});
    quest::ding ();
     }
#Item Hand in Shadowknight
 if  (plugin::check_handin(\%itemcount, 22198=> 1, $Shadowknight_1=> 1 && $class eq 'Shadowknight' && $epic_weapon == undef))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Shadowknight_Link Epic 1.5!");
	quest::setglobal("epic_weapon", 1, 5, "F");
    quest::summonitem($Rewards{$Shadowknight_15});
    quest::ding ();
     }
#Item Hand in Shaman
 if  (plugin::check_handin(\%itemcount, 22198=> 1, $Shaman_1=> 1 && $class eq 'Shaman' && $epic_weapon == undef))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Shaman_Link Epic 1.5!");
	quest::setglobal("epic_weapon", 1, 5, "F");
    quest::summonitem($Rewards{$Shaman_15});
    quest::ding ();
     }
#Item Hand in Warrior
 if  (plugin::check_handin(\%itemcount, 22198=> 1, $Warrior_1=> 1 && $class eq 'Warrior' && $epic_weapon == undef))
     {
    quest::emote("removes a item from his pocket.");
    $client->Message(315,"This is yours. Care for it well!");
	quest::shout2("Congratulations to $class $name on completing their $Warrior_Link Epic 1.5!");
	quest::setglobal("epic_weapon", 1, 5, "F");
    quest::summonitem($Rewards{$Warrior_15}); 
    quest::ding ();
     }
#Item Hand in Warrior
 if  (plugin::check_handin(\%itemcount, 22198=> 1, $Warrior_2=> 1 && $class eq 'Warrior' && $epic_weapon == undef))
     {
    quest::emote("removes a item from his pocket.");
    $client->Message(315,"This is yours. Care for it well!");
	quest::shout2("Congratulations to $class $name on completing their $Warrior_Link Epic 1.5!");
	quest::setglobal("epic_weapon", 1, 5, "F");
    quest::summonitem($Rewards{$Warrior_15}); 
    quest::ding ();
     }
#Item Hand in Warrior
 if  (plugin::check_handin(\%itemcount, 22198=> 1, $Warrior_3=> 1 && $class eq 'Warrior' && $epic_weapon == undef))
     {
    quest::emote("removes a item from his pocket.");
    $client->Message(315,"This is yours. Care for it well!");
	quest::shout2("Congratulations to $class $name on completing their $Warrior_Link Epic 1.5!");
	quest::setglobal("epic_weapon", 1, 5, "F");
    quest::summonitem($Rewards{$Warrior_15}); 
    quest::ding ();
     }
#Item Hand in Wizard
 if  (plugin::check_handin(\%itemcount, 22198=> 1, $Wizard_1=> 1 && $class eq 'Wizard' && $epic_weapon == undef))
     {
    quest::emote("removes a item from his pocket.");
    $client->Message(315,"This is yours. Care for it well!");
	quest::shout2("Congratulations to $class $name on completing their $Wizard_Link Epic 1.5!");
	quest::setglobal("epic_weapon", 1, 5, "F");
    quest::summonitem($Rewards{$Wizard_15}); 
    quest::ding ();
     }
########################
#Item Hand in EPIC 2.0 #
########################
#Item Hand in Bard
 if  (plugin::check_handin(\%itemcount, $Bard2_1=> 1, $seb_key=> 1, $sleepers_key=> 1, $vpeak_key=> 1 && $class eq 'Bard' && $epic_weapon == 1))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Bard2_Link Epic 2.0!");
	quest::setglobal("epic_weapon", 2, 5, "F");
    quest::summonitem($Rewards{$Bard_20});  
    quest::ding ();
     }
#Item Hand in Beastlord
 if  (plugin::check_handin(\%itemcount, $Beastlord2_1=> 1, $seb_key=> 1, $sleepers_key=> 1, $vpeak_key=> 1 && $class eq 'Beastlord' && $epic_weapon == 1))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Beastlord2_Link Epic 2.0!");
	quest::setglobal("epic_weapon", 2, 5, "F");
    quest::summonitem($Rewards{$Beastlord_20}); 
    quest::ding ();
     }
#Item Hand in Beastlord
 if  (plugin::check_handin(\%itemcount, $Berserker2_1=> 1, $seb_key=> 1, $sleepers_key=> 1, $vpeak_key=> 1 && $class eq 'Berserker' && $epic_weapon == 1))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Berserker2_Link Epic 2.0!");
	quest::setglobal("epic_weapon", 2, 5, "F");
    quest::summonitem($Rewards{$Berserker_20}); 
    quest::ding ();
     }
#Item Hand in Cleric
 if  (plugin::check_handin(\%itemcount, $Cleric2_1=> 1,  $seb_key=> 1, $sleepers_key=> 1, $vpeak_key=> 1 && $class eq 'Cleric' && $epic_weapon == 1))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Cleric2_Link Epic 2.0!");
	quest::setglobal("epic_weapon", 2, 5, "F");
    quest::summonitem($Rewards{$Cleric_20});
    quest::ding ();
     }
#Item Hand in Druid 
 if  (plugin::check_handin(\%itemcount, $Druid2_1=> 1, $seb_key=> 1, $sleepers_key=> 1, $vpeak_key=> 1 && $class eq 'Druid' && $epic_weapon == 1))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Druid2_Link Epic 2.0!");
	quest::setglobal("epic_weapon", 2, 5, "F");
    quest::summonitem($Rewards{$Druid_20});  
    quest::ding ();
     }
#Item Hand in Enchanter
 if  (plugin::check_handin(\%itemcount, $Enchanter2_1=> 1,  $seb_key=> 1, $sleepers_key=> 1, $vpeak_key=> 1 && $class eq 'Enchanter' && $epic_weapon == 1))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Enchanter2_Link Epic 2.0!");
	quest::setglobal("epic_weapon", 2, 5, "F");
    quest::summonitem($Rewards{$Enchanter_20});  
    quest::ding ();
     }
#Item Hand in Magician
 if  (plugin::check_handin(\%itemcount, $Magician2_1=> 1, $seb_key=> 1, $sleepers_key=> 1, $vpeak_key=> 1 && $class eq 'Magician' && $epic_weapon == 1))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Magician2_Link Epic 2.0!");
	quest::setglobal("epic_weapon", 2, 5, "F");
    quest::summonitem($Rewards{$Magician_20});  
    quest::ding ();
     }
#Item Hand in Monk 
 if  (plugin::check_handin(\%itemcount, $Monk2_1=> 1, $seb_key=> 1, $sleepers_key=> 1, $vpeak_key=> 1 && $class eq 'Monk' && $epic_weapon == 1))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Monk2_Link Epic 2.0!");
	quest::setglobal("epic_weapon", 2, 5, "F");
    quest::summonitem($Rewards{$Monk_20});  
    quest::ding ();
     }
#Item Hand in Necromancer
 if  (plugin::check_handin(\%itemcount, $Necro2_1=> 1, $seb_key=> 1, $sleepers_key=> 1, $vpeak_key=> 1&& $class eq 'Necromancer' && $epic_weapon == 1))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Necromancer2_Link Epic 2.0!");
	quest::setglobal("epic_weapon", 2, 5, "F");
    quest::summonitem($Rewards{$Necro_20}); 
    quest::ding ();
     }
#Item Hand in Paladin
 if  (plugin::check_handin(\%itemcount, $Paladin2_1=> 1,  $seb_key=> 1, $sleepers_key=> 1, $vpeak_key=> 1 && $class eq 'Paladin' && $epic_weapon == 1))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Paladin2_Link Epic 2.0!");
	quest::setglobal("epic_weapon", 2, 5, "F");
    quest::summonitem($Rewards{$Paladin_20});  
    quest::ding ();
     }
#Item Hand in Ranger
 if  (plugin::check_handin(\%itemcount, $Ranger2_1=> 1, $seb_key=> 1, $sleepers_key=> 1, $vpeak_key=> 1 && $class eq 'Ranger' && $epic_weapon == 1))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Ranger2_Link Epic 2.0!");
	quest::setglobal("epic_weapon", 2, 5, "F");
    quest::summonitem($Rewards{$Ranger_20});  
    quest::ding ();
     }
#Item Hand in Rogue
 if  (plugin::check_handin(\%itemcount, $Rogue2_1=> 1, $seb_key=> 1, $sleepers_key=> 1, $vpeak_key=> 1 && $class eq 'Rogue' && $epic_weapon == 1))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Rogue2_Link Epic 2.0!");
	quest::setglobal("epic_weapon", 2, 5, "F");
    quest::summonitem($Rewards{$Rogue_20});  
    quest::ding ();
     }
#Item Hand in Shadowknight
 if  (plugin::check_handin(\%itemcount, $Shadowknight2_1=> 1, $seb_key=> 1, $sleepers_key=> 1, $vpeak_key=> 1 && $class eq 'Shadowknight' && $epic_weapon == 1))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Shadowknight2_Link Epic 2.0!");
	quest::setglobal("epic_weapon", 2, 5, "F");
    quest::summonitem($Rewards{$Shadowknight_20});  
    quest::ding ();
     }
#Item Hand in Shaman
 if  (plugin::check_handin(\%itemcount, $Shaman2_1=> 1, $seb_key=> 1, $sleepers_key=> 1, $vpeak_key=> 1 && $class eq 'Shaman' && $epic_weapon == 1))
     {
    quest::emote("removes a item from his pocket.");
	quest::shout2("Congratulations to $class $name on completing their $Shaman2_Link Epic 2.0!");
	quest::setglobal("epic_weapon", 2, 5, "F");
    quest::summonitem($Rewards{$Shaman_20}); 
    quest::ding ();
     }
#Item Hand in Warrior
 if  (plugin::check_handin(\%itemcount, $Warrior2_1=> 1, $seb_key=> 1, $sleepers_key=> 1, $vpeak_key=> 1 && $class eq 'Warrior' && $epic_weapon == 1))
     {
    quest::emote("removes a item from his pocket.");
    $client->Message(315,"This is yours. Care for it well!");
	quest::shout2("Congratulations to $class $name on completing their $Warrior2_Link Epic 2.0!");
	quest::setglobal("epic_weapon", 2, 5, "F");
    quest::summonitem($Rewards{$Warrior_20}); 
    quest::ding ();
     }
#Item Hand in Wizard
 if  (plugin::check_handin(\%itemcount, $Wizard2_1=> 1, $seb_key=> 1, $sleepers_key=> 1, $vpeak_key=> 1 && $class eq 'Wizard' && $epic_weapon == 1))
     {
    quest::emote("removes a item from his pocket.");
    $client->Message(315,"This is yours. Care for it well!");
	quest::shout2("Congratulations to $class $name on completing their $Wizard2_Link Epic 2.0!");
	quest::setglobal("epic_weapon", 2, 5, "F");
    quest::summonitem($Rewards{$Wizard_20});  
    quest::ding ();
     }
#Item Hand in PoTIME
if  (plugin::check_handin(\%itemcount, 56018=> 1))
     {
		quest::setglobal("pop_time_maelin", 1, 5, "F");
		quest::set_zone_flag(219);
		quest::set_zone_flag(223);
		$client->Message(4, "You receive a character flag!");
     }
else 
	{
	plugin::return_items(\%itemcount);	
	$client->Message(13, "I have no use of these items $name");
	}
  }





